home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / gkismet / StringWindow.pm < prev    next >
Encoding:
Perl POD Document  |  2005-10-20  |  2.2 KB  |  115 lines
  1. #!/usr/bin/perl -w
  2. #
  3. # $Id: StringWindow.pm,v 1.22 2003/07/20 03:06:28 solovam Exp $
  4. #
  5. # This file is a part of gkismet
  6. #
  7. # This program is free software; you can redistribute it and/or
  8. # modify it under the terms of the GNU General Public License
  9. # as published by the Free Software Foundation; either version 2
  10. # of the License, or (at your option) any later version.
  11. #
  12. # This program is distributed in the hope that it will be useful,
  13. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. # GNU General Public License for more details.
  16. #
  17. # You should have received a copy of the GNU General Public License
  18. # along with this program; if not, write to the Free Software
  19. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  20. #
  21.  
  22. #
  23. # StringWindow class
  24. #
  25. package StringWindow;
  26.  
  27. use Gtk;
  28. use Misc;
  29. use ClistWindow;
  30. use strict;
  31.  
  32. @StringWindow::ISA = qw(ClistWindow);
  33.  
  34. #
  35. # Tell connection to start sending the info
  36. #
  37. sub activateConnection
  38. {
  39.     my $self = shift;
  40.     if($self->{'gKismetApplication'}->countObservers('StringWindow') < 1)
  41.     {
  42.         $self->{'connection'}->enableStrings();
  43.     }
  44. }
  45.  
  46. #
  47. # Tell connection to stop sending the info
  48. #
  49. sub deactivateConnection
  50. {
  51.     my $self = shift;
  52.     if($self->{'gKismetApplication'}->countObservers('StringWindow') == 1)
  53.         {
  54.         $self->{'connection'}->disableStrings();
  55.     }
  56. }
  57.  
  58. #
  59. # Is it a worthwhile update?
  60. #
  61. sub isInterstingUpdate
  62. {
  63.     my $self = shift;
  64.     my $data = shift;
  65.  
  66.     if($data->{'changed'} eq 'string' && $self->{'connection'}->getString()->{'bssid'} eq $self->{'bssid'})
  67.     {
  68.         return $true;
  69.     }
  70.     else
  71.     {
  72.         return $false;
  73.     }
  74. }
  75.  
  76. #
  77. # Window name (title)
  78. #
  79. sub getWindowName
  80. {
  81.     return 'String dump';
  82. }
  83.  
  84. #
  85. # Titles for CList columns
  86. #
  87. sub getColumnTitles
  88. {
  89.     return ('BSSID', 'Source MAC', 'Text');
  90. }
  91.  
  92. #
  93. # How many lines to show in window
  94. #
  95. sub getWindowDepth
  96. {
  97.     my $self = shift;
  98.     return $self->{'gKismetApplication'}{'preferences'}->getPref('stringDepth');
  99. }
  100.  
  101. #
  102. # Get column data
  103. #
  104. sub getColumnData
  105. {
  106.     my $self = shift;
  107.     my $string = $self->{'connection'}->getString();
  108.     my $bssid = $string->{'bssid'};
  109.     my $srcmac = $string->{'sourcemac'};
  110.     my $text = $string->{'text'};
  111.     return($bssid, $srcmac, $text);
  112. }
  113.  
  114. 1;
  115.